home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / Tokens.md < prev    next >
Text File  |  1992-08-18  |  2KB  |  82 lines
  1. (* handle token section *)
  2.  
  3. (* $Id: Tokens.md,v 1.2 1991/11/21 14:47:50 grosch rel $ *)
  4.  
  5. (* $Log: Tokens.md,v $
  6.  * Revision 1.2  1991/11/21  14:47:50  grosch
  7.  * new version of RCS on SPARC
  8.  *
  9.  * Revision 1.1  90/06/11  18:45:47  grosch
  10.  * layout improvements
  11.  * 
  12.  * Revision 1.0     88/10/04  14:27:25  vielsack
  13.  * Initial revision
  14.  * 
  15.  *)
  16.  
  17. DEFINITION MODULE Tokens;
  18.  
  19. FROM Lists    IMPORT tList;
  20. FROM TokenTab    IMPORT Vocabulary,PosType,Terminal;
  21. FROM Idents    IMPORT tIdent;
  22.  
  23.   PROCEDURE MakeGlobalHeader
  24.     (GlobalComment : tList;
  25.      GlobalCommPos : PosType);
  26.  
  27.   (* Speichert den globalen Kommentar *)
  28.  
  29.   PROCEDURE  MakeTokensHeader
  30.     (TOKENPos       : PosType;
  31.      TOKENComment  : tList;
  32.      TOKENCommPos  : PosType);
  33.   
  34.   (* Speichert globale Informationen ueber den zu TOKEN gehoerigen
  35.      Abschnitt *)
  36.  
  37.   PROCEDURE MakeDeclaration
  38.     (Token    : tIdent;
  39.      TokenPos    : PosType; 
  40.      HasCoding    : BOOLEAN;
  41.      EQUALPos    : PosType;
  42.      Number    : Terminal;
  43.      NumberPos    : PosType;
  44.      Comment    : tList;
  45.      CommPos    : PosType);
  46.   
  47.   (* Fuege neue Deklaration ein. *)
  48.  
  49.   PROCEDURE  CompleteDeclarations;
  50.    
  51.   (* Vervollstaendigt die Eintraege in der Tokentable. Muss n a c h
  52.      dem letzten MakeDeclaration und v o r dem ersten GetDeclaration
  53.      aufgerufen werden. *)
  54.  
  55.   PROCEDURE  GetGlobalHeader
  56.     (VAR GlobalComment : tList;
  57.      VAR GlobalCommPos : PosType);
  58.  
  59.   (* liest die mit MakeGlobalHeader abgelegte Information *)
  60.  
  61.   PROCEDURE  GetTokensHeader
  62.     (VAR TOKENPos      : PosType;
  63.      VAR TOKENComment  : tList;
  64.      VAR TOKENCommPos  : PosType);
  65.  
  66.   (* liest die mit MakeTokensHeader abgelegte Information *)
  67.  
  68.   PROCEDURE GetDeclaration
  69.     (VAR Token        : tIdent;
  70.      VAR TokenPos   : PosType; 
  71.      VAR HasCoding  : BOOLEAN;
  72.      VAR EQUALPos   : PosType;
  73.      VAR NumberPos  : PosType;
  74.      VAR Comment    : tList;
  75.      VAR CommPos    : PosType) : BOOLEAN;
  76.   
  77.   (* liefert die naechste Deklaration, falls vorhanden. Ansonsten wird
  78.      FALSE zurueckgegeben. *)
  79.  
  80.  
  81. END Tokens.
  82.